---
title: "Regression model summary from `{easystats}`"
output: 
  flexdashboard::flex_dashboard:
    theme:
      version: 4
      # bg: "#101010"
      # fg: "#FDF7F7" 
      primary: "#0054AD"
      base_font:
        google: Prompt
      code_font:
        google: JetBrains Mono
    orientation: columns
    vertical_layout: fill
    out.width: "100%"
params:
  model: model
---

```{r setup, include=FALSE}
library(flexdashboard)
library(easystats)

knitr::opts_chunk$set(
  error = TRUE,
  comment = "#>"
)
```

```{r}
# Get user-specified model data
model <- params$model

table_parameters <- parameters(model)
table_performance <- performance(model)



text_report <- report(model)
```

Model fit 
=====================================  

Column {data-width=550}
-----------------------------------------------------------------------

### Assumption checks

```{r check-model, fig.height=10, fig.width=8, out.width="60%"}
check_model(model)
```

Column {data-width=450}
-----------------------------------------------------------------------

### Indices of model fit

```{r}
table_performance
```

Parameter estimates
=====================================  

Column {data-width=550}
-----------------------------------------------------------------------

### Plot

```{r dot-whisker}
plot(table_parameters)
```

Column {data-width=450}
-----------------------------------------------------------------------

### Tabular summary

```{r}
table_parameters
```

Extra {data-orientation=rows}
=====================================    

### Textual summary

```{r}
text_report
```